home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - ProDOS 8 / P8G001.dsk / INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  25 lines
  1. 10  FOR I = 1 TO 4: READ EA(I): NEXT : DATA  0,119,128,247
  2. 20  FOR S = 1 TO 4: TEXT : HOME 
  3. 30  GOSUB 29990
  4. 40  VTAB 23: HTAB 13: PRINT "Press any key.";
  5. 50 X =  PEEK( -16384): IF X <127  THEN 50
  6. 60  POKE  -16368,0: NEXT 
  7. 70  HOME 
  8. 80  VTAB 7:A$ = "Options Menu": GOSUB 200: PRINT 
  9. 90 A$ = "[1] See instructions again": GOSUB 200:A$ = "[2] Run Question Editor   ": GOSUB 200:A$ = "[3] Play Another Trivia   ": GOSUB 200: PRINT 
  10. 100 A$ = "Please choose :": GOSUB 200
  11. 110 X =  PEEK( -16384): IF X <177  OR X >179  THEN 110
  12. 120  POKE  -16368,0
  13. 130  IF X = 177  THEN  RUN 
  14. 140  IF X = 178  THEN  HOME : VTAB 12: PRINT "Loading the Question Editor": PRINT  CHR$(4)"-TRIVIA.EDITOR"
  15. 150  HOME : VTAB 12: PRINT "Loading Another Trivia Game": PRINT  CHR$(4)"-ANOTHER.TRIVIA"
  16. 160  END 
  17. 200  HTAB 20 - LEN(A$)/2: PRINT A$: RETURN 
  18. 29990  PRINT  CHR$(4)"BLOAD SCREEN"S",A$8D00"
  19. 30000 BA = 141:TA = 4:SM = 1
  20. 30010  FOR I = 1 TO 8
  21. 30020  POKE 60,EA(SM): POKE 61,BA: POKE 62,EA(SM +1): POKE 63,BA: POKE 66,EA(SM): POKE 67,TA: POKE 58,44: POKE 59,254: POKE 71,0: CALL  -327
  22. 30030  IF I/2 =  INT(I/2)  THEN BA = BA +1:TA = TA +1:SM = 1: GOTO 30050
  23. 30040 SM = SM +2
  24. 30050  NEXT 
  25. 30060  RETURN